home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 December / DPPCPRO1205.ISO / Essentials / Programming / Basic4GL / Setup Basic4GL v2.3.1.exe / $INSTDIR / Programs / MultitextureDemo.gb < prev    next >
Encoding:
Text File  |  2005-07-29  |  1.3 KB  |  41 lines
  1. if not ExtensionSupported ("GL_ARB_multitexture") then
  2.     print "Multitexturing not supported"
  3.     end
  4. endif
  5.  
  6. ' Load some textures
  7. dim tex1, tex2
  8. tex1 = LoadMipmapTexture ("textures\00003.jpg")
  9. tex2 = LoadMipmapTexture ("data\nehe.bmp")
  10.  
  11. glActiveTexture (GL_TEXTURE0)
  12. glEnable (GL_TEXTURE_2D)
  13. glBindTexture (GL_TEXTURE_2D, tex2)
  14. glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE)
  15. glActiveTexture (GL_TEXTURE1)
  16. glEnable (GL_TEXTURE_2D)
  17. glBindTexture (GL_TEXTURE_2D, tex1)
  18. glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_ADD)
  19.  
  20. dim a#, ang#
  21.  
  22. while true
  23.     glClear (GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT)
  24.     glMatrixMode (GL_MODELVIEW)
  25.     glLoadIdentity ()
  26.     glTranslatef (0, 0, -3)
  27.     glRotatef (ang#, 0, 0, 1)
  28.     
  29.     glBegin (GL_QUADS)
  30.         glMultiTexCoord2f (GL_TEXTURE0, 0, 1): glMultiTexCoord2f (GL_TEXTURE1, a# + 0, 1): glVertex2f (-1, 1)
  31.         glMultiTexCoord2f (GL_TEXTURE0, 1, 1): glMultiTexCoord2f (GL_TEXTURE1, a# + 1, 1): glVertex2f ( 1, 1)
  32.         glMultiTexCoord2f (GL_TEXTURE0, 1, 0): glMultiTexCoord2f (GL_TEXTURE1, a# + 1, 0): glVertex2f ( 1,-1)
  33.         glMultiTexCoord2f (GL_TEXTURE0, 0, 0): glMultiTexCoord2f (GL_TEXTURE1, a# + 0, 0): glVertex2f (-1,-1)
  34.     glEnd ()
  35.     SwapBuffers ()
  36.  
  37.     while SyncTimer (10)
  38.         a# = a# + 0.008
  39.         ang# = ang# + 0.1
  40.     wend
  41. wend